home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
wg_lib
/
ostrfrm.frm
< prev
next >
Wrap
Text File
|
1995-09-06
|
7KB
|
220 lines
VERSION 2.00
Begin Form OStrFrm
BackColor = &H00C0C0C0&
Caption = "Names"
ClientHeight = 4380
ClientLeft = 2175
ClientTop = 1635
ClientWidth = 4800
Height = 4785
Left = 2115
LinkMode = 1 'Source
LinkTopic = "Form4"
ScaleHeight = 4380
ScaleWidth = 4800
Top = 1290
Width = 4920
Begin Frame Frame2
BackColor = &H00C0C0C0&
Caption = "String Names"
Height = 1695
Left = 345
TabIndex = 11
Top = 2385
Width = 4095
Begin CommandButton NameCmd
Caption = "Execute"
Height = 285
Left = 1410
TabIndex = 18
Top = 705
Width = 1080
End
Begin TextBox NameTxt
Height = 285
Left = 1245
TabIndex = 12
Text = "mary beth susan ann johnson"
Top = 315
Width = 2640
End
Begin Label nswap
BackColor = &H00C0C0C0&
ForeColor = &H00FF0000&
Height = 210
Left = 1245
TabIndex = 17
Top = 1290
Width = 2640
End
Begin Label Label12
BackColor = &H00C0C0C0&
Caption = "First, Last:"
Height = 225
Left = 150
TabIndex = 16
Top = 1275
Width = 960
End
Begin Label Pname
BackColor = &H00C0C0C0&
ForeColor = &H00FF0000&
Height = 225
Left = 1245
TabIndex = 14
Top = 990
Width = 2625
End
Begin Label Label11
BackColor = &H00C0C0C0&
Caption = "ProperCase:"
Height = 255
Left = 90
TabIndex = 15
Top = 990
Width = 1095
End
Begin Label Label9
BackColor = &H00C0C0C0&
Caption = "Your Name:"
Height = 255
Left = 105
TabIndex = 13
Top = 375
Width = 1020
End
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "ParseFileSpec"
Height = 1935
Left = 360
TabIndex = 0
Top = 240
Width = 4095
Begin CommandButton ParseCmd
BackColor = &H00000000&
Caption = "Parse File"
Height = 315
Left = 2655
TabIndex = 10
Top = 1500
Width = 1035
End
Begin TextBox Filetxt
Height = 315
Left = 240
TabIndex = 1
Text = "C:\WIN\SYSTEM\WINxxx.FIL"
Top = 435
Width = 3660
End
Begin Label FLbl
BackColor = &H00C0C0C0&
ForeColor = &H00FF0000&
Height = 180
Index = 4
Left = 825
TabIndex = 9
Top = 1590
Width = 735
End
Begin Label Label4
BackColor = &H00C0C0C0&
Caption = "Ext:"
Height = 210
Left = 345
TabIndex = 5
Top = 1590
Width = 375
End
Begin Label FLbl
BackColor = &H00C0C0C0&
ForeColor = &H00FF0000&
Height = 180
Index = 3
Left = 825
TabIndex = 8
Top = 1365
Width = 1200
End
Begin Label Label3
BackColor = &H00C0C0C0&
Caption = "File:"
Height = 255
Left = 345
TabIndex = 4
Top = 1335
Width = 375
End
Begin Label FLbl
BackColor = &H00C0C0C0&
ForeColor = &H00FF0000&
Height = 180
Index = 2
Left = 810
TabIndex = 7
Top = 1110
Width = 3165
End
Begin Label Label2
BackColor = &H00C0C0C0&
Caption = "Path:"
Height = 210
Left = 285
TabIndex = 3
Top = 1110
Width = 495
End
Begin Label FLbl
BackColor = &H00C0C0C0&
ForeColor = &H00FF0000&
Height = 180
Index = 1
Left = 825
TabIndex = 6
Top = 840
Width = 1110
End
Begin Label Label1
BackColor = &H00C0C0C0&
Caption = "Drive:"
Height = 255
Left = 240
TabIndex = 2
Top = 840
Width = 615
End
End
End
defint a-z
Sub Form_Paint ()
ConvexFrm OStrFrm, 5
ConcaveCtl Nametxt, 3
ConcaveCtl FileTxt, 3
'ConcaveCtl Frame1, 3
'ConcaveCtl Frame2, 3
End Sub
Sub NameCmd_Click ()
f$ = LTrim$(RTrim$(Nametxt.text))
If Len(f$) Then
Pname.caption = PCase$(f$)
nswap.caption = LastNFirst$(f$)
End If
End Sub
Sub ParseCmd_Click ()
f$ = LTrim$(RTrim$(FileTxt.text))
Dim FInfo As FilStruct
errc = ParseFileSpec(f$, FInfo)
Flbl(1).caption = FInfo.Drv
Flbl(2).caption = FInfo.Path
Flbl(3).caption = FInfo.Fil
Flbl(4).caption = FInfo.Ext
End Sub
